Invenzioni & Inventori/Invenzioni and Inventori (Eclectica Publishing) (1996).ISO/invenzio/tori/sharedi.cst/03024_Script_3024

Text File | 1983-01-27 | 1KB | 41 lines

on vap dv, qcast,bp
  global attual_text,vbeep
  if offset ("no",bp) then
    set the scrolltop of member 499 to 0
  end if
  if attual_text <> field 499 then
    set the scrolltop of member 499 to 0
    set attual_text to field 499
    duplicate cast 499,qcast
    SET THE TEXTHEIGHT OF FIELD QCAST TO 17
  end if

  set valore to THE TEXTHEIGHT OF FIELD QCAST

  if dv = "su" then
    if the scrolltop of member qcast >= valore then
      set the scrolltop of member qcast to the scrolltop of member qcast - valore
      set vbeep to true
    else
      if bp = "sibeep" and vbeep then beep
      set vbeep to false
    end if

    --    put "su",the scrollTop of member qcast
    --    scrollByLine member qcast,-1
  end if

  if dv = "giu" then
    if the scrolltop of member qcast < valore*(the linecount of member qcast - 1) then
      set the scrolltop of member qcast to the scrolltop of member qcast + valore
      set vbeep to true
    else
      if bp = "sibeep" and vbeep then beep
      set vbeep to false
    end if

    --    put "giu",the scrollTop of member qcast
    --    scrollByLine member qcast,1
  end if
end